unit pecli;

interface

uses console;

procedure pecli_start;

implementation

procedure pecli_start; [Public , alias: 'pecli_start'];
var command:PChar;
begin
  kwritestr('peCLI: initiate console');
  {data load block}
  kwritestrln('  [OK]');
  {command block}
  kread(command);
  kwritestr('END');
end;

end.